* language/european.el (macintosh): Define as alias for mac-roman.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99ed3afe5121e7a0b1ca21e8d48e22843cdc8dc2..65a57fe6fa843010bcbd1c503dbbedf148262933 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-19  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * language/european.el (macintosh): Define as alias for mac-roman.
+
 2011-11-19  Eli Zaretskii  <eliz@gnu.org>
 
        * mail/rmailmm.el (rmail-mime-display-header)

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 5bdec6dec7b90c7cae744d79404f7d3f8ffe36c3..3c2cb083ff639a956571d015cbf367f7926ff1cb 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -613,6 +613,7 @@ method and applying Turkish case rules for the characters i, I, \e$(D)E\e(B, \e$(D*
   :mnemonic ?M
   :charset-list '(mac-roman)
   :mime-charset 'macintosh)
+(define-coding-system-alias 'macintosh 'mac-roman)
 
 (define-coding-system 'next
   "NeXTstep encoding"